home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 36 / 036.d81 / shiver me timber (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  20KB  |  538 lines
  1. 1 gosub60100
  2. 2 print"[147]           [211][200][201][214][197][210][160][205][197][160][212][201][205][194][197][210][211]":print"             by [196]ana [195]lapp"
  3. 3 c=115:dimwd$(c),wt(c),li(85),fi(85),ti(85),di$(85),dm(27,6)
  4. 4 tc=0:lc=1:ic=0:fc=0:ac=0:tv=0:lp=118:lr=1::nn=90:dc=.5:vc=0
  5. 5 open15,8,15:open2,8,2,"o:smtfile,p,r":get#2,a$,a$
  6. 10 forr=1toc:input#2,wd$(r),wt(r):s=wt(r):ifs>90then20
  7. 15 input#2,di$(s),li(s),ti(s),fi(s)
  8. 20 next
  9. 25 forr=1to27:fors=1to6:input#2,dm(r,s):nexts,r:close2:close15
  10. 45 print"[196]o you want instructions? ([217]/[206]) ";
  11. 50 getz$:ifz$=""then50
  12. 51 ifz$="n"orz$="[206]"thenprint"[206]o":goto100
  13. 52 ifz$<>"y"andz$<>"[217]"then50
  14. 53 print"[217]es"
  15. 54 a$="[201]n this all-text game you will read about your surroundings, and will b"
  16. 55 a$=a$+"e prompted to interact with it by entering commands on the keyboard."
  17. 56 b$=" [195]ommands must start with a verb, and may be followed by a noun, or a co"
  18. 57 c$="mbination of nouns and prepositions. [198]or a list of verbs type 'list' an"
  19. 58 d$="d hit 'return' at the prompt '?'. [217]ou will have to move to different lo"
  20. 59 d$=d$+"cations by typing 'walk (direction)', like 'walk north'. '[213]p' and 'd"
  21. 60 e$="own' are in addition to the four compass directions. [205]aking a map is re"
  22. 61 e$=e$+"commended.":print"[147]":gosub10000
  23. 75 print"            [208][210][197][211][211][160][193][206][217][160][203][197][217]"
  24. 76 getz$:ifz$=""goto76
  25. 100 print"[147]":a$="[215]hile sailing you notice a figure, hobbling on a wooden leg, "
  26. 101 b$="waving for you to land on the beach to the south. [217]ou steer south, bea"
  27. 103 c$="ch your sailboat, and disembark, only to find that the figure has vani"
  28. 105 d$="shed, without a trace. [160] ":goto5995
  29. 110 a$="  [217]ou raise sail and depart with your treasure. [193]s the volcanic island"
  30. 112 b$=" erupts, an ape frantically swims past you and out of sight. [212]he volca"
  31. 115 c$="no explodes again and a figure with a wooden leg appears before you. [200]"
  32. 117 d$="e peers at you through thick glasses, and speaks without a sound 'good"
  33. 120 e$=" work matey', then vanishes. [217]ou glance at your treasure and "
  34. 125 e$=e$+"steer for home.":gosub10000:print"           [208][204][193][217] [193][199][193][201][206]? (y/n)"
  35. 131 getz$:ifz$="y"then5025
  36. 132 ifz$<>"n"then131
  37. 133 goto5030
  38. 200 a$="[217]ou don't see a "+y$+" here.":goto295
  39. 202 a$="[217]ou don't see that here.":goto295
  40. 205 a$="[201] don't know the word '"+y$+"'.":goto295
  41. 210 a$="[208]lease limit your commands to four words.":goto295
  42. 215 a$="[208]lease begin with a verb.":goto295
  43. 216 a$="[201] don't understand you.":goto295
  44. 220 a$="[215]hat do you want to do that to?":goto295
  45. 225 a$="[201] need to know more here, so please use the following syntax: "
  46. 226 b$="'verb noun preposition noun' like 'put coin in slot'"
  47. 227 c$=", or 'unlock door with key'.":goto295
  48. 230 a$="[217]ou don't have that.":goto295
  49. 235 a$="[208]lease be more specific.":goto295
  50. 295 tc=tc-1:gosub10000
  51. 300 z$="":wc=1:y$="":print
  52. 305 gosub60500:ifz$="inv"thenz$=z$+"en"
  53. 306 ifz$="ne"thenz$="northeast"
  54. 307 ifz$="nw"thenz$="northwest"
  55. 308 ifz$="sw"thenz$="southwest"
  56. 309 ifz$="se"thenz$="southeast"
  57. 310 l=len(z$):ifl=0then305
  58. 320 tc=tc+1
  59. 340 forr=1tol:a$=mid$(z$,r,1)
  60. 350 ifa$=" "then370
  61. 355 y$=y$+a$:ifr<>lthen570
  62. 370 ify$=""then570
  63. 375 ify$="the"andwc=1then215
  64. 376 ify$="the"then565
  65. 380 iflen(y$)>37then216
  66. 400 fors=1toc:ifleft$(y$,5)=wd$(s)then410
  67. 405 nexts:goto205
  68. 410 v=wt(s):ifv>79then510
  69. 470 t=li(v):ift=lport=1then510
  70. 480 ift>99then200
  71. 490 u=fi(t):ift<>33andu<>2andu<>6andu<>14then200
  72. 505 ifli(t)<>lpandli(t)<>1then200
  73. 510 onwcgoto520,530,540,550,210
  74. 520 c1=v:goto560
  75. 530 c2=v:goto560
  76. 540 c3=v:goto560
  77. 550 c4=v
  78. 560 wc=wc+1
  79. 565 y$=""
  80. 570 nextr:wc=wc-1:a$=""
  81. 575 ifwc=1thenifc1>93andc1<100thenwc=2:c2=c1:c1=102
  82. 600 ifc1<100orc1>199then215
  83. 610 onwcgoto620,630,640,650
  84. 620 ifc1=103orc1=123orc1=130orc1=131orc1=132orc1=140orc1=141then700
  85. 625 goto220
  86. 630 ifc2>99then216
  87. 631 ifc2>nnandc1<>102andc1<>123then216
  88. 635 ifc1>108andc1<118then225
  89. 637 goto700
  90. 640 ifc2<199orc3>99then216
  91. 645 ifc1>107andc1<120then225
  92. 646 ifc1=120orc1=123orc1=128then700
  93. 647 goto216
  94. 650 ifc2>nnorc3<199orc4>nnthen216
  95. 655 ifc1<108orc1>120then216
  96. 660 ifc2=c4then216
  97. 665 ifc1=109then700
  98. 670 ifc1<>108andc1<>111andc1<>112then680
  99. 675 ifli(c2)<>1then230
  100. 676 ifc2<3then216
  101. 677 goto700
  102. 680 ifli(c4)<>1then230
  103. 685 ifc3<>205then216
  104. 700 onc1-99goto750,800,850,950,1000,1050,1200,1200,1250,1350,1400,1450,1550,1600
  105. 705 onc1-113goto1600,1650,,,1800,1850,1900,1950,1950,2050,2250,2300
  106. 710 onc1-125goto2350,2400,2450,2500,2550,2600,2650
  107. 715 onc1-139goto5000,5000
  108. 749 print"undefined":goto300
  109. 750 ifc2<>21then216
  110. 755 goto1850
  111. 800 ifc2=80andlp=103orlp=102then820
  112. 805 ifc2=80andlp=103orlp=102then820
  113. 810 ifc2=84andlp=111orlp=115then820
  114. 815 goto5903
  115. 820 iflp=102orlp=115thenc2=99:goto850
  116. 825 c2=98
  117. 850 ifc2<94then216
  118. 857 s=dm(lp-99,c2-93):ifs>99then900
  119. 860 onsgoto863,865
  120. 862 a$="[217]ou can't go that way.":goto5995
  121. 863 a$="[217]ou go wading, find nothing of interest then return.":goto5995
  122. 865 a$="[193] mountain blocks your way.":goto5995
  123. 900 iflp=100andfc>0thenfc=0:print"[212]he flare goes out."
  124. 905 ifs=116andfi(4)=0andli(4)=116thenprint"*[211][206][193][208]* [217]ou scamper back up.":goto7000
  125. 910 iflp=114ands=112thena$="[215]ith little to grip you fall ten feet."
  126. 930 lp=s:lr=1
  127. 935 li(27)=114:iflp=107thenli(27)=lp
  128. 946 goto5995
  129. 950 ifwc>1then216
  130. 955 ific=0thena$="[217]ou carry nothing.":goto5995
  131. 957 print"[217]ou hold:":gosub10100
  132. 958 goto7000
  133. 1000 ifc2=23thena$="[217]ou quickly develop a headache and remove them.":goto5995
  134. 1007 ifc2=8thena$="[217]ou already have two good ones.":goto5995
  135. 1015 goto5900
  136. 1050 s=li(c2):ifs=33thena$="[213]ntie it first.":goto5995
  137. 1055 iflp=100andfc=0then5935
  138. 1065 ifs=1thena$="[217]ou already have it.":goto5995
  139. 1067 s=ti(c2):ifc2=20then1075
  140. 1070 ifs<>1ands<>3then5900
  141. 1075 ific>5thena$="[217]ou can't carry anymore.":goto5995
  142. 1076 ifc2=24orc2=28thena$="[201]t crumbles.":goto1100
  143. 1077 ifc2=7andli(5)=lpthen5955
  144. 1078 ifc2=25then235
  145. 1079 ifc2=33thena$="[206]ot without a sharp knife.":goto5995
  146. 1080 ifc2=27andlp=114thena$="[212]hat is what supports you.":goto5995
  147. 1081 ifc2=27thena$="[217]ou are not strong enough.":goto5995
  148. 1082 ifc2=20ands=2thens=1:b$="[212]he volcano explodes violently.":vc=tc
  149. 1083 ic=ic+1:li(c2)=1:a$="[196]one. ":ifs=1thenifc2<50orc2>53thenti(c2)=3
  150. 1085 goto5995
  151. 1100 ifti(43)=1thenb$=" [217]ou notice a key within."
  152. 1140 goto5995
  153. 1200 iftv=0then1245
  154. 1205 ifc2=33thenc2=tv
  155. 1210 ifli(c2)<>33then1245
  156. 1215 tv=0:li(c2)=lp:goto5905
  157. 1245 a$="[201]t is not tied.":goto5995
  158. 1250 onwcgoto,1253,,1450
  159. 1253 ifc2<3then216
  160. 1255 ifli(c2)<>1then5933
  161. 1265 ic=ic-1:li(c2)=lp
  162. 1267 ifc2>49andc2<54thena$="[201]t splats and dries up.":li(c2)=101:goto5995
  163. 1270 goto5905
  164. 1350 ifc3<>204then216
  165. 1353 ifc4=33thenc4=c2:c2=33
  166. 1354 ifc2<>33then216
  167. 1355 ifc4=1thena$="[217]ou shiver at the thought of being tied up.":goto5995
  168. 1356 ifc4<>7andc4<>26andc4<>45then5907
  169. 1357 ifc4=7andli(5)=lpthen5955
  170. 1360 iftv>0thena$="[201]t is already tied to something.":goto5995
  171. 1365 tv=c4:a$="[212]ied. "
  172. 1366 ifli(c4)=1thenb$="[217]ou release the "+di$(c4)+".":ic=ic-1
  173. 1367 li(c4)=33:goto5995
  174. 1400 ifc3<>205then216
  175. 1405 c1=c2:c2=c4:c4=c1:c3=203
  176. 1450 ifc3=203orc3=207then1500
  177. 1457 ifc3<>202then216
  178. 1460 ifc4=16andli(6)=105thenc4=6
  179. 1465 s=fi(c4):ifs<>2ands<>6ands<>14then5900
  180. 1470 ifc4=8andc2<>22then1480
  181. 1473 ifc4=6andc2<>44then1480
  182. 1475 ic=ic-1:li(c2)=c4:ifc4=9thenli(c2)=112
  183. 1477 ifc4=10thenli(c2)=116:a$="[196]one. ":goto1485
  184. 1478 ifc2>49andc2<54thena$="[196]one.":goto1490
  185. 1479 goto5905
  186. 1480 print"[201]t won't fit.":goto7000
  187. 1485 ifc2<50orc2>53thenb$="[212]he "+di$(4)+" sniffs at it.":goto5995
  188. 1486 iffi(4)=9then1490
  189. 1487 b$="[212]he caiman gulps it down."
  190. 1489 ifc2=51thenfi(4)=9:c$=" [201]t promptly tips over unconscious."
  191. 1490 li(c2)=101:goto5995
  192. 1500 ifc4<>9then5900
  193. 1503 ifc2<>39andc2<>45then5900
  194. 1505 ifc2=39thena$="[212]he hole is too big, and the blanket too limp.":goto5995
  195. 1510 a$="[196]one. [212]he ape's head tilts as it looks down at your work. [200]e bounces "
  196. 1511 b$="off the chest, onto the plank, and straight through the floor, as the"
  197. 1512 c$=" rotten wood splinters to pieces.":li(5)=112:li(45)=0:ic=ic-1
  198. 1515 ac=tc:goto5